home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk202 / bbbbs2 / rexxdoors / your_fortune.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  626b  |  39 lines
  1. /* Your_Fortune.rexx */
  2.  
  3. FF='0C'x
  4. CR='0D'x
  5. SIGNAL ON BREAK_C
  6. SIGNAL ON BREAK_E
  7.  
  8. ARG name .
  9.  
  10. bbspath=GETCLIP('BBS_path')
  11. filename=bbspath'rexxDoors/Data/Fortune'
  12. size=WORD(STATEF(filename),2)
  13.  
  14. x=OPEN(f,'RAM:DUMMY','W')
  15. IF x=0 THEN RETURN;
  16. CALL WRITELN(f,'dummy')
  17. CALL CLOSE(f)
  18. micros=WORD(STATEF('RAM:DUMMY'),7)
  19. location=TRUNC(size*micros/3000)
  20.  
  21. x=OPEN(f,filename,'R')
  22. IF x=0 THEN RETURN;
  23.  
  24. CALL SEEK(f,location,'B')
  25. line=''
  26. DO WHILE line~=FF & ~EOF(f)
  27.   line=READLN(f)
  28. END
  29. IF EOF(f) THEN RETURN;
  30. line=''
  31. DO WHILE line~=FF & ~EOF(f)
  32.   line=READLN(f)
  33.   IF ~EOF(f) & line~=FF THEN SAY line||CR
  34. END
  35. BREAK_C:
  36. BREAK_E:
  37. RETURN;
  38. EXIT;
  39.